home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Labs / Lab09 / Solution / transfer.cls < prev    next >
Encoding:
Visual Basic class definition  |  1997-04-24  |  1.2 KB  |  43 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Obj"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Public Function Transfer(ByVal lngStudentID As Long, ByVal strSrcClassID As String, ByVal strDstClassID As String) As Integer
  11.     Dim ctxObject As ObjectContext
  12.     Dim addobj As Add.Obj
  13.     Dim dropobj As Drop.Obj
  14.     Dim errResult As Integer
  15.  
  16.     On Error GoTo ErrorHandler
  17.     Transfer = 0
  18.     
  19.     ' Get the object's ObjectContext.
  20.     Set ctxObject = GetObjectContext()
  21.  
  22.     'Create Add and Drop objects using the Context Object
  23.     Set addobj = ctxObject.CreateInstance("Add.Obj")
  24.     Set dropobj = ctxObject.CreateInstance("Drop.Obj")
  25.     errResult = addobj.Add(lngStudentID, strDstClassID)
  26.  
  27.     'Check for error
  28.     If errResult = 1 Then Transfer = 1
  29.     errResult = dropobj.Drop(lngStudentID, strSrcClassID)
  30.     
  31.     'Check for error
  32.     If errResult = 1 Then Transfer = 1
  33.  
  34.     'Work completed successfully
  35.     ctxObject.SetComplete
  36.     Exit Function
  37.     
  38. ErrorHandler:
  39.     'Abort if any errors occurred
  40.     Transfer = 1
  41.     ctxObject.SetAbort
  42. End Function
  43.